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EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
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1er8ee= 1386 93:98:06 LeXcunc’Seedexcmocnee so. 1 9 a) 
MODULE exch$moun ZTITLE "MOUNT verb dispatch and misc routines’ 


IDENT = *v04-000' 
ADDRESSING_MODE (EXTERNAL=LONG_RELATIVE, NONE XTERNAL=WORD_RELATIVE) 


~~ 


BEGIN 


VORA AEE AEA AA AAAAEA AERA AA EE EAA TEETER AAA EERERREAEREEE 
‘@ 


88S3333ss3 


3 ; | : 
‘ers ; 
Be ; 
; 5 1 : 
; ; 
: 10 10 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
Sar 11 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: 1 i } - ALL RIGHTS RESERVED. : : 
; (14 33 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
co oe 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; pig 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 17 01 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
Soe 18 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: 1? dh ! ;* TRANSFERRED. . : 
: 1 0021 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
: ¢ 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: Z 8 Z : = CORPORATION. - : 
; 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: ° Be $ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
: 28 0028 1 i« ® : 
: 9 594 : Vee RRA AEA $ 
3 0 00 3 
; 1 bos) 1 I++ ; : 
: § i : } FACILITY: EXCHANGE - Foreign volume interchange facility : 
: 7 Oo ‘ ABSTRACT: Primary action routines for MOUNT verb : 
; 6 0036 | ENVIRONMENT: VAX/VMS User mode : 
; 8 0038 i AUTHOR: Cw Hobbs CREATION DATE: 19-July-1982 ; 
; 40 0040 ! MODIFIED BY: ; 
; 42 004¢ | i VO3-253 cwh3003 CW Hobbs 26-Jul-1984 ; 
3 rb BRO? : } Message chosen for CWH3002 needs an FAO parm, supply it. : 
s 6§ $028 1/ V03-002 (WH3002 CW Hobbs 12-Apr-1984 3 
3; «& be$ 1! Give explicit message for mount on remote Link. If a : 
; 4 047 1! TUS8, attempt to read and write block 1 so that we can 3 
;  =48 048 1! sense whether the device is write-locked. The TU58 : 
; 6 «649 049 1! driver does not report write-lock status until a : 
: ? bey : write is actually done. : 
; ‘ Ose | i ; 
3 5 ] leo 3 
3 4 54 3 
3 5 2 ' : Include files: ; 
; 3 087 1 MACRO Smodule_name_string = ‘exch$moun’ 2; ! The require file needs to know our module name ; 


4 
ge FE spear rear trate amr orieegy VESEPcI9R QDsMH8S WENA ARNE RENatSRe2 ee 
: 38 9038 ! REQUIRE *SRCS:EXCREQ’ ! Facility-wide require file 


mm 
=< 
o 


r 
Coon No AAO 
VESBSVSARANASSSLSSFERS 33 


wr 


ooo 


SaaS 


aa nik ni nt ai i an nt at ht at hs ss sk sb a = a — a i a a as _s ss 2 4 2 sv 


DWOOOOOOOOOMWMO@o COONAN NNN NNO 
SSLEREANLSESSISARAVELS SSNS ARUN SSRUR ARO 


SOSCCOOCOCOOCOOOCOOOOOOOOOOOOOOoO 


RAVLSSSLESLESLESELSSS 


1 
1 
1 
1 
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MOUNT verb dispatch and misc routines 
Module table of contents 


ZSBTTL ‘Module table of contents’ 
} Module table of contents: 


FORWARD ROUTINE 
exch$moun_dismount, 
exch$moun_dismount_action, 

moun_foreign, 
exch$noun. un. inpliedan mount 
VALUE, 
euch@eoun” mount, 
moun_virtual, 
exch$moun_ vms_mount 


EXCHANGE facility routines 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 EXTERNAL ROUTINE 
1 exch$cmd_namb_clone, 

1 exch$cmd_parse_filespec, 
1 exch$cmd_unwind_cli_syntax, 
1 exch$dosT1_mount, 

1 exch$io_rtT1 -read. 

1 exch$io rti 

1 exch$rtT1 "aFeeche. _stop 
1 exch$rt11_mount, 

1 exch$util—file _error, 
: exch$util“namb_release 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


exch$util—vm_aTllocate_zeroed, 


exch$util-vol_getdvi, 
exch$util-volB_release 
exchSutil7 “volb_allocate 


Equated symbols: 
iLITERAL 


Bound declarations: 


ND 
ascid_devicename = ZASCID ‘DEVICENAME’ 


1984 92:98:06 YeXchnc’$aESexemoy 


AX-11 Bliss-32 V4. oe 


Main entry routine i DISMOUNT verb 
Action routine for OUNT 

Specific routine to do foreign device mounts 

Perform an automatic mount 

Setups common to Moun_im sted mount and Moun_mount 

Main action routine for MOUNT 

Specific routine to do virtual device mount 

Catt the SMOUNT service to do an implied $ MOUNT /FOREIGN 


Make a duplicate of a namb 

Parse a file specification 

Unwind out of a CLISPRESENT call if qualifier not allowed 
DOS-11 volume mount greceest ng 

Read a block from a foreign disk 

Write a block to a foreign disk 

Flush RT= 11 caches during dismount 


! RT=-11 volume mount processing 


Signal RMS error 
Release name block 
Allocate virtual memory 
Get device information 
Release volume block 
Allocate volume block 


exch$moun_dismoun -Sep-19 EXCHNG. SRC JEXCMOUN.B32;1 (3) 


a MOUNT verb tepateh and misc routines 18-Sep-1984 91:98:38 ee Bliss-32 V4.0-742 Page 4 


device will be dismounted 


; } SL ORAL ROUTINE exch$moun_dismount = ZSBTTL ‘exch$moun_dismount' 
: : +e 
; + 4 i FUNCTIONAL DESCRIPTION: 
; i ; Entry routine for the dismount verb, parses and performs main control functions for dismount 
; 114 i INPUTS: 
; 116 1 i none 
; 11 i ! 
3 138 \§ : IMPLICIT INPUTS: 
; } . 13 ! Command parameters and qualifiers as returned from CLI$xxx routines. 
; 4 1 i QUTPUTS: 
is 5 i$ ! 
s 126 i : none 
: 125 1 ! 
3 \ § Y IMPLICIT OUTPUTS: 
; 8 : none 
; 4 ROUTINE VALUE: 
; : ¢ $ Success or worst error encountered. 
; é i SIDE EFFECTS: 
: 1% 
; i 1 2 ine 
; 173 g $dbgtrc_prefix (*moun_dismount> '); 

> 141 5 2 LOCAL 

3 146 $ namb : Sref_bblock, !' Local pointer to a namb 

:; 14 volb : Sref_bblock, ! Local pointer to a volb 

: 163 : status 

; 146 40 . 

ae 41 BIND 

3 Hs ¢g moun = exch$a_gbl Cexcg$a_moun_work] : $ref_bblock ! pointer to our work area 


pc 


F 4 
Exc MOUNT verb dispatch and misc routines 16-Sep-1984 01:08:34 AX-11 Bliss-32 V4.0-742 Pa 5 
a postdanan Dlaemed 18-808-1 38 93:98: 3 EXCHNG.SRCJEXCMOUN.B32;1 = (4) 


Allocate and/or initialize the work area 
moun_init (); 
} Parse the device name parameter into a newly allocated SNAMB, there are no defaults 


Vw 
nee 
NOW 


status = exch$cmd parse _filespec (ascid_devicename, 0, 0, moun Cmoun$q_device], namb); 
moun Lmoun$Sa_namb] = .namb; ' Save it in the work area too 
on -Status 


Sexch_signal_return (exch$ porsegrre 1, moun Cmoun$q_device], .status); 
jf wot -namb Cnamb$v_explicit_device 


Sexch_signal_return (exch$_nodevice, 1, moun Cmoun$q_device]); 
{t _.nene Enamb$v_explicit_node] 


Sexch_signal_ return (exch$_noremote, 1, moun Cmoun$q_device]); 
IF = nam nembv expt ic it_diFectory OR <namb Cnamb$v_explicit_name) 
OR .namb [namb$v_explicit_type] OR .namb Cnamb$v_explicit_version] 


WO OONO UNSW" O0O@ 


Sexch_signal (exch$_devonly, 1, moun Cmoun$q_device]); 
Make sure that the volume is already mounted 
A ee Cnamb$a_assoc_volb] NEQ 0) 
status = exch$moun_dismount_action (.namb [namb$a_assoc_volb]) 
7 ELSE 


SSEUSAPOROS 


74 Signal and return the error 

7 Sexch_signal (exch$_notmounted, 1, namb [namb$q_device]); 
4 Release the namb 

exch$util_namb_release (.namb); 

§ ree -Status; 


a a ed ed a kd kd dd ot od 


SSSLEGRANLS Sal VS ARANSSSSIFSAFERIS SS 


-TITLE EXCHSMOUN MOUNT verb dispatch and misc routines 
-IDENT \v04-000\ 


.PSECT EXCHSMOUN_PLIT,NOWRT,2 


00 00 45 4D 41 4E 45 43 49 “ord o008 B900¢ Serve “feent \BEY] SENAME\<0><0> ; 
0° 1 -ADDRESS P.AAB : 


XT 
-EXTRN 


voe-000- 


MOUNT verb 


exch$moun_d 


dismount 


53 000000006 
0000v 


55 


000000006 


00 


14 


ispetch and misc routines 


4 000000006 
EF 
CF 
63 
0000" 
5 
8 


$e 000000006 


$0 


53 6C¢ 
54 000000006 


3 
8 000000006 


01 


000000006 


V—NOPOW Swe oun TOWN WEWU AMO BWMAOMoOsL 


be 12:95:36 


f 


Oore $98 
BSS 
C1 0000C 
FB 00014 
DOD 19 
Bae 
te i 
oF ; 
FB 00 
34 
Dd 38 
i Be 
Bae 
dd one 
Ba 
es 
Bae 
ts Bis 
Bais 
bd 00085 
DD 0006C 
dD : 
44 


Se =| 
~Sep-1 


N 
-EXTRN 
-PSECT 
-ENTRY 


AX-11 8 Oi tegese V4.0-742 

EXCHNG. SRCJEXCMOUN.B32;1 
XCHS$IO_RT11 wire 
XCHSRTT1_DIRCACHE_STOP 
KENSAT! | BOUNT 
XCHSUTIL-FILE_ERROR 
KCHSUT IL NANG RELEASE 
XCHSUTIL_VM ALLOCATE. ZEROED 
XCHSUTIL-VOC_GETOVI 
XCHSUTIL_VOLB_RELEAS 
XCHSUTIL- VOLB- ALLOCATE 
fe A_GBC, EXTHS _PARSEERR 

foe EV vite. fly WOREROTE 


EXCHSMOUN. CODE ,NOWRT, 2 


EXCHSMOUN pion . Save R2,R3,R4,R5,R6,R7 


LIBSSIGNAL, R 
#36, Exc EXCHSA_GBL, R3 
MOUN_IN a 


#i2, (R3), 
me 


a DEVICENAM 

EECHSCRO. PARSE _FILESPEC 
+e He 

R2, @0(R3) 

STATUS, 1$ 

SEXCHS PARSEERR, TEMP 
R5, -(SP) 

TEMP 

#4, LIBSSIGNAL 

TEMP, RO 

1OR«R2). R3 

(R3) 


2$ 
WEXCHS_NODEVICE, TEMP 


mein NOREMOTE, TEMP 


} pal 
#5, LIBSSIGNAL 
TEMP, RO 


#EXCHS_DEVONLY 


Sete Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se 


ex MOUNT verb dispatch and misc routines 
a exch$moun_d onbunt 
67 03 F 
* § 3 
74 he i) 
0000v gf F 
6 0 D 
OE 11 
40 A oF 
0D 
00000000G 8F ODD 
7 FB 
43 


000000006 44 


° 8 


; Routine Size: 195 bytes, Routine Base: 


H 4 
1eSep-19be 42:99:06 Excuse SaeSexcmouncesss 


9 CALLS #3 pete 
68: TSTL 14(R2) 
BEQL 
98 PUSHL pre R2) 
0095 CALLS + EXCHSMOUN, DISMOUNT_ACTION 
BRA MOVL 40 
Ne BRB 
7$: PUSH 66 (Re) 
AB PUSHL a 
Ap PUSHL XCH$_NOTMOUNTED 
r) CALLS , LIBSSIGNAL 
8$: PUSHL 
CALLS EXCHSUTIL_NAMB_RELEASE 
BF VL STATUS: R 


o 
oO 
~m 
DD 
m 
_ 


EXCHSMOUN_CODE + 0000 


p ey 


i 


—_ —? dd SS 2 td 


REV OOBNAUE WYO OONA NE WOODS URANO OO GOR ome 
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exch$moun_dismount_action (volb) -Sep-1 EXCHNG. $rei EXCMOUN.B32; 1 (5) 
Scent ROUTINE exch$moun_dismount_action (volb : Sref_bblock) = ZSBTTL ‘exch$moun_dismount_action (v 
'¢¢ 


FUNCTIONAL DESCRIPTION: 
Action routine for the dismount verb, cleans up and closes the volb 
INPUTS: 
volb = pointer to volume to be released 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
file will be closed, volb returned to internal tables 


S$dbgtrc_prefix (‘*moun_dismount_action> '); 


LOCAL 
status 
BIND 
moun = exch$a_gbl Cexc $a _moun_work] : $Sref_bblock, ! pointer to our work area 


fab = volb Cvolb$a_fab] :“$ref_ “bblock, 
rab = volb Cvolb$a_rab) : $ref—bblock 


: If we have global caching for an RT-11 volume, flush the cache 
d -exch$a_gbl Cexcg$v_q_cache] 
A Cvolb$b_vol_format] EQL volb$k_vfmt_rt11 
BEGIN 


! If we are in an exit handler, it is possible that 1/0 is active (likely if the device is a TUS8), 
so wait for it to complete. 


4 if NOT (status = $wait (rab = .rab)) 


Ot et et et et BE OOQOOOOVO 
RRWI-HSOSNAN EW O00 NOARW ODR VE AEWA ODE AUT ODES ON 


SOOSODOOOOCOOOOOOOCOCOOCOOOOOOoOOooOoooO 


THEN 
exch$Sutil_file_error (exch$_waiterr, .status, .fab, .rab Crab$l_stv)); 
eaente excg$v_q cached = age: Kill global otgeh ins. otherwise nothing will happen 


exch rei ireatnecs stop 


Flush the ¢ 
eee tet’ 
END; 


excg$v_q_ opened = true; i Reenable globat caching 
Close the RMS file associated with the device 


Strace print. fao ( glosing fab=!XL", .volb Cvolb$a_fab]); 
IF wr (status = $close (FAB = .volb Cvolb$a_fab]))~ 


Sexch_signal_stop (.status); 


! Tell them it is gone unless we are dismounting from the exit handler. Note that the MOUN work area is not 
valid if we are in an exit handler. 


if NOT -exch$a_gbl Cexcg$v_exiting) 
ee Cmoun$v_q_message] 


Sexch_signal (exch$_dismounted, 4, .volb [vo _ vol_type_len], volb Cvolb$t_vol_type] 
.volb Cvolb$ vol_ident_lén], volb Cvolb$t_vol _Tdent)); 


Release the S$VOLB 
exch$util_volb_release (.volb); 


O+ Se Ge Se Se Se we Ge Fe Ge Se Ge Se Se oe FH Se Se Se Se Se Se Se Se Ss Ge Ge FH Oe Se Ge 


RETURN .status; 


1 END; 
-EXTRN SYSSWAIT ae oan 
“EXTRN SYSSCLOSE, 
“EXTRN EXCHS LOI SMOUNT + Ses 
007¢ 00000 .ENTRY EXCHSMOUN_DISMOUNT_ACTION, Save R2,R3.R4,- ; 0284 
56 000000006 EF 9€ 000 MOV : 
55 i PF 80 0098 ADDL GatHSA ER fash _o8 GBL, RS > 0324 
3F 00 wks b0 900 rT BBC vol XCHSA_GBL, 2 : 0 ; 
8 og Ag + if CMPB ae (Rr 3) A : 0333 
39 1 1A BNEQ : 
53 14 Mg D 1 MOVL 9¢R2), R3 : 0340 
DD PUSHL R : 
000000006 90 1 F CALLS #1, SYSSWAIT : 
4 0 09 MOVL th Bi T $ : 
E C BLBS : 
oc A3 0D F PUSHL He : 0342 
A2 0D PUSHL \ : 
DD PUSHL a : 
ooooo0g0e ef mrs OB CALLS site sare TIL apie ERROR 
88 86 2 BA 4 1$ grt #2. CHSA. GB > 0344 


EXCH MOUNT verb dispatch and misc routi 1b-se | AX-11 Bliss- -74 p 
Vos-000 exch$moun_dismount_action (vol) wSep-1986 12:99:06 LEXcHNG’SRETEXCHOUN. 85351 “saat” am 


| 
} 
| 
| 
— 


K 4 

Exc MOUNT verb dispatch and misc routines 16-Sep-1 7:08:34 AX-11 Bliss-32 V4.0-742 Page 10 
ae tt exch$moun_d subunt aerton (volb) 1 730071382 9:98: 3¢ LEXCHNG. SRE EXCMOUN.B32;1 . 3 
2 DD PUSHL R 3 0345 

EF ce CALL #1, EXCHSRT11_DIRCACHE_STOP : 
88 a6 8 BIS82 of SEXCHSA_CBL : 0346 
10 Ae DD PUSHL  16(R2) : 035 

000000006 F CALLS #1, SYSS$CLOSE ; 

4 0 D0 VL OR STATUS 3 
: 4 BD pigs StAtUs. 9354 

000000006 00 1 fe CALLS #1, LIBSSTOP : 
23 00 e 04 £ BBS rT @EXCHSA_GBL 4$ + 0359 
65 D mMOVL (R5), R + 0361 

18 20 A 4 : BBC #4, $2(RO), 4$ : 
69 A2 OF PUSHAB 105(R2) 3 0364 

5 OA po PUSHL  101(R2) : 

D Ae OF PUSHAB 3 (Re : 

9 Ad DD PUSHL  89(R2) : 

DD PUSHL #4 : 

000000006 8F DD PUSHL #EXCH$_DISMOUNTED : 

000000006 00 FB CALLS #6, LIBSSIGNAL : 
DD PUSHL ; 0368 

000000006 gf FB CALLS #1, EXCHSUTIL_VOLB_RELEASE 3 
0 4 p MOVL STATUS, R : 0370 
4 RET 3; 0371 


3; Routine Size: 164 bytes, Routine Base: EXCHSMOUN_CODE + 00C3 


~ 
oa 
~ 
Sz 


moun_fore 14-Sep-1 EXCHNG. SRC JEXCMOUN.B32; 1 
Ts ROUTINE moun_foreign = ZSBTTL ‘moun_foreign’ 

'ee 

FUNCTIONAL DESCRIPTION: 


Make a foreign volume known to EXCHANGE. If the device is not mounted in the VMS sense, then mount 
foreign with the Smount service. 


INPUTS: 
none 
IMPLICIT INPUTS: 


namb = name block oy ne the device 
write - flag saying if we allow writes 


OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

volb = volume block which will describe the mounted volume 
ROUTINE VALUE: 
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SPRRLRLA Ve sessessssssssssssessssssssscscse 


9 
08 39 
+4 rts Success or worst error encountered. 
3 8§ SIDE EFFECTS: 
ig lots 
i Ele 
\$ $dbgtrc_prefix (*moun_foreign> '); 
18 09 LOCAL 
19 10 ptr : Sref_bblock, ! Pointer to scan along the queue 
0 11 status 
18 
§ 14 BIND 
4 15 moun = exch$a_gbl fexcosa moun work] : $ref_bblock, ! pointer to our work area 
5 1g namb = .moun [moun a_nanb] : $Bblock, ' Pointer to exchange NAMB structure 
§ 1 volb = .moun [moun$a_vol : Sbblock, ! Pointer to exchange VOLB structure 
13 fab = .volb [volb$a_fab] : Sbblock, ' File Access Block for the volume 
8 1 rab = .volb [volb$a_rab] : Sbblock, ' Record Access Block for the volume 
9 0 nam = .volb [volb$a_n : Sbblock ! RMS name block for the volume 
¢ dev_desc = namb namb$q_device) : $desc_block ! Pointer to the device name 
§ 424 Sblock_check (2, .moun, moun, 433); 
425 Sblock_ check (2, namb, namb, 434); 
5 , § Sblock check (2, volb, volb, 455); 
8 ! Get the device information 
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-Sep-19 EXCHNG. SRC JEXCMOUN.B32;1 (6) 


if NOT (status = exch$util_vol_getdvi dev_desc, volb)) 


— signal (exch$_ accessfail, 1, dev_desc, .status); 
RETURR Status; “< ? 


; Ch eck to make sure that this Payetcet device is not already mounted as a foreign. This could 
happen if we are dealing with hidden device names. 


Due “ES"AeaR onchSslgsr Bexcgbacvolbsuses | ANA" Fork £Otahe°ena®t *M SUeM® 
BEGIN 
Sblock_ check (2, .ptr, volb, 540); ! If these aren't volbs we are in deep trouble 
ad NEQ volb ! Our volb is already in queue, so ignore it 


: If the physical names match, then this device has already been mounted via a concealed device name 
if CHSEQL (.ptr Cvolb$l_devnamlen], ptr Cvolb$t_devnam], .volb Cvolb$l_devnamien], volb Cvolb$t_devn 


BEGIN 
LOCAL 
mz VECTOR C2, LONG); 
gone fe j= -vol olb$t devnamlen): 
= a cpveute _devnam); 


Sexch Signal_return (exch$_volmount, 1, desc); 
hg -ptr seskate, bchte ! Advance to next volb in the in-use queue 


: Look at the device characteristics and make some decisions 


BEGIN, ! scope ‘‘devbits”’ 


weit = volb Cvolb$l_devchar] : $bblock; 
must_have, cannot_have; ! masks for device tests 


! We need to make sure that the thing is at least similar to a disk or tape. First define masks for all 
required and all prohibited device characteristics 


if .devbits Cdev$v_rnd) 
THEN 


BEGIN ! bits for “disks i“ 
must_have = (dev$m_rnd OR dev$m_fod pr dev$m_shr OR dev$m_avl OR dev$m_idv oe dev$m_odv OR dev$m_dir 
cannot_have = (deySn. rec OR devSa_ sii OR devSm_trm OR devSm_sdi OR devSm_ 3393 OR d devSm _spl OR devSm_o 
cm R dev$m_net OR dév$m_gen OR dev$m_mbx OR dévsn_ dmt OR dev$m_rtm); 
ELSE 

BEGIN ' bits for “tapes 

must_have = (dev$m_sqd OR dev$m_fod OR AB uy ial OR poe tf ‘idv OR dev$m_odv); 


: 
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sears grape acts te p, 1e=$ep-1984 92:99:06 LENCHNG’SRESERCMOUN-B 53s Seca 
$ ; sgage coed rt : fit he ra Ry thy" : dmt OR dev$m_rtm); 
END; “s Y “: > m : 
a If we are missing any ‘‘must_have’’ items or if we have any ‘‘cannot_have’’ items, scream and shout 
38 IF gi (f-volb Cvolb$l_devchar] XOR .must_have) AND .must_have) NEQ 0) 
oge ((.volb Cvolb$l_devchar] AND .cannot_have) NEQ 0) 
4 Sexch_signal_return (exch$_devnotsuit, 1, dev_desc); 


! If the device is not mounted in the VMS sense, then we must do that 
and recursively call ourself 


if NOT .devbits Cdev$v_mnt) 
THEN 


BEGIN 
d _ exch$moun_vms_mount (volb, dev_desc) 


RETURN false; 
RETURN moun_foreign (); 
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} The device must be mounted foreign 

Ay -devbits Cdev$v_for) ! If the volume is write-locked 
Sexch_signal_return (exch$_opnotperf11, 1, namb Cnamb$q_device]); 

END; : scope ‘‘devbits"’ 

Now set the unique ident field of this volb 

$trace_print_fao (‘*volb devnam ‘"!AF'’, namb device "!AF’', namb volid ‘"!AF’', concealed !UL', 
.volB fvolb$t_devn len}, volb Cvolb$t_devnam) 


(BIND ndev = namb [namb$q_device] : $desc_block; -ndev fdscéu_lengthd) 
(BIND ndev = namb dent. tang, ne : oot | block; .ndev dsc$a_pointer]), 


ta 


MEUM —OOONOAUES WN —OVONOUS WN oO 


-namb E[namb$l_vol_ident_len], namb Cnamb t_vol_ident ° 
-namb_ [namb$v_concealed_device)); 

CHSMOVE (volb$s_vol_ident, namb Cnamb$t_vol_ident], volb Cvolb$t_vol_ident]); 
volb Cvolb$l_vol_ideént_len] = .namb Cnamb$l“vol_ident_lenJ; 


ZIF switch _debu ! Debugging trace code 
ZTHEN + ° o9'ng 


tmp_desc : $desc_block; 
$stat_str_desc_init Ttmp_desc, .volb Cvolb$l_devnamlen), volb Cvolb$t_devnam)); 
$tracé_print_fao ('Getdv7 for name ‘!AS"’ resolved to device ‘!AS'', dév_desc, tmp_desc); 
ie 
: Init the RMS blocks for the volume 


$fab_init ( 
FAB = 


See errs ah ah sb ab Ab Ab A ah dh ah ab Ab Ab dh ah ah ah ah ah ah ab aba! 


fab, ' Volume FAB 
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4 P 054 FAC = (B10,GET) ! Block 1/0, read-onl 

4 g P és FNA = volb yolbst vol_ident], i Set name addr ‘ 

454 P 054 FNS = .volb Cvolb$T_vol_ident_len], ! Set name size 

455 P ‘8 FOP = NFS ! Non-File Structured 

4 6 4 NAM = nam); i Name block 

4 Pp rk Srab_init ( 

4 8 P 054 RAB = rab, ! Volume RAB 

45 Pp ROP = B10 ! Block 1/0 

460 FAB = fab; FAB addr 

461 P Snam_init ( 

46 P NAM = nam ! File name block 

46 Pp H RSA = .volb Cvolb$a_rsbuf], ! Result name addr 

464 P RSS = nam$c_maxrss, ! Result name size 

465 P 055 ESA = .volb Cvolb$a_esbuf], ! Expanded name addr 

1e8 2 ESS = nam$c_maxrss); ! Expanded name size 

ri Z } Make any adjustments to the RMS blocks as necessary for dynamic conditions 

$70 ? fab Cfab$v_put] = .moun Cmoun$l_q_writel; 

47 6 


Open and connect to the volume 
$trace_print_fao (*opening, fab=!xL*, fab); 
a 


475 IF NOT (status = Sopen (fab = fab)) 
iH . 
re Scheck_call (4, exch$dbg_fab_dump, fabJ; 
volb Cvolb$w_channel] = .fab Cfab$l_stv); ! Save the channel number (NFS ==> user mode channel) 
re IF NOT (status = $connect (rab = rab)) 
okt RETURN exch$util_file_error (exch$_openforeign, .status, fab, .rab Crab$l_stv]); 
rey Fill in the rest of the state 
488 volb [volb$v_connected] = true; 
489 volb Cvolb$v_foreign] = true; 
200 volb Cvolb$v_writeJ = (BIND deybits = fab Cfab$l_dev] : S$bblock; ' Device can't be writelocked 


(NOT .devbits Cdev$v_swl]) AND .fab fab$v_putJ); ! and the put bit must be set 


! The TUS8 driver does not tell us if the cartridge is writelocked, therefore let us read and then 
attempt to write block 1 of the cartridge. 


iF .volb Cvolb$v_write) 
HEN 
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497 8 
rh 4 9 IF .volb Cvolb$l_devclass] EQL dc$_disk 
00 1 -volb Cvolb$i_devtype) EQL dt$_tu58 
01 ¢ THEN 
8 BEGIN 
0 4 LOCAL 
04 5 uf : $bvector (512); 
05 rab [rab$l_ubfJ = buf; ! User buffer address 
06 rab Crab$w_usz] = 512; ' User buffer size 
0 rab Crab$l_bkt] = 1; : 
08 4 If NOT (status = $read (rab = rab)) 


N 
RETURN exch$util file_error (exch$_openforeign, .status, fab, .fab Cfab$l_stv]); 
| 


i — —_—} | aameal 
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vo moun_foreign 1e=8eb-1984 12:59:06 LEXCHNG’SRETERCMOUN 85241 a 
; 4 : THEN : 
; $1 BEGIN ; 
; 11 § 4 LOCAL ° 
; \§ & tmp_desc : $desc_block; ‘ 
. wy 6 4 $stat_str_desc_init Utmp desc, .volb Cvolb$l_vol_ident_ten], volb Cvolb$t_vol_ident)); ; 
: 1 re 5 4 sexch signal réturn (exch$_accessfail, 1, tmp_desc, .sftatus, .rab Crab$l_StvJJ; ‘ 
: 18 rab Crab$l_rbf] = busi ! Record buffer address ‘ 
s 31 ons rab Lrab$w_rsz] = 512; ' Record buffer size : 
3 18 rab Lrab$l_bktJ = 1; : 
: 8 i 4 IF wo (status = $Swrite (rab = rab)) : 
: $21 i i BEGIN ; 
3 é 13 4 $trace_print_fao (‘status from TU-58 write check is !XL, stv !XL", .status, .rab Crab$l_stv]); ‘ 
; : 13 ? If -status EGL rms$_wlk : 
; 5 Deg 4 volb Cvolb$v_write] = false : 
3 $ 0617 4 : 
; Beis BEGIN 3 
3 é 8 061 LOCAL 3 
3 9 0620 tmp_desc : $desc_block; 3 
; 3 0621 $stat_str_desc_init tmp desc, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)); ; 
3 321 06 ; Sexch_signal_return (exch$_accessfail, 1, tmp_desSc, .status, .rab Crab$l_StvJJ; ; 
3 3 ¢ 06 4 END; 3 
3 Oe : -_ END; : 
: 535 6 ; : 
3 3 $ 0s } Set the volume format ; 
3 3 629 2 volb vol b$b_vol format] =_.namb Cnamb$b_vol_format); | ; 
3 346 Be ? volb Cvolb$vivfmt_explicit] = .namb Cnamb$v_Ufmt_explicitd; : 
: 41 06 § RETURN true; é 
; 542 06335 1 END; : 
.EXTRN EXCHSUTIL_BLOCK_CHECK : 
-EXTRN EXCHS_ACCESSFAIL ; 
-EXTRN EXCHS_VOLMOUNT, EXCHS_DEVNOTSUIT : 
-EXTRN EXCHS$_OPNOTP : 
-EXTRN SYSSOPEN, EXCH$_OPENFOREIGN $ 
SEXTRN SYSSCONNECT, SYSSREAD : 
-EXTRN SYSSURITE : 
OFFC 00000 ENTRY ma ar Save R2,R3,R4,R5,R6,R7,RBRI,~; 0372 : 
SE FDF4 CE 9E 0000 MOV -524(SP), SP : F 
50 00000000G_ EF 14 i 009 ADDL rr EXCHSA_GBL, RO : 0415 3 
B 60 DO 0000F MOVL (ROS, R11 > 0416 : 
A 68 D 0 lg MOVL  (R11$, R10 : : 
6 04 AB D 1 MOVL 4(R115, R6 : 0417 3 
: 10 Ad DOD 19 MOVL 196R ), Re : 0418 3 
14 Ad D 1D MOVL (R6), R ; 0419 3 
y wanlt  SRSS—BBlha | SIGE 1 eat 
2 002400F8 BF Hi 00 3 MOVL P35e0N66, R2 > 0424 : 


5 
BERIT SN ec tench ot nt rectors IT IE AISA, os 
i eooe GHEE Be He 
,HRRHeOs AF US SNS eft ymgee ee 
B2 F re a #434, R 


‘ 9000 006 eX atin BLOCK_CHECK 
a ei Sheila 

‘ 000000006 
000000006 EF 


mun & 
VPwo 
qe 
w 
@o 


Je EXCHSUTIL BLOCK. CHECK 
CALLS #2. EXCHSUTIL_VOL_GETDVI 


SOOoOOOOCOOCOOoOoOOOOoOoOOOoOOOSooOoO 


SOOO COCSCOCOCCOCOOOOOOOOOOOCOO 


f 7 

d ; 

F : : 

F 3 

e 8 bo ; 

70 : 

fi : 

5 6— €E 7 LBS STATUS, 1$ : 

: DD 0007 PUSHL STATUS : 

DD 7A PUSHL : 

000000006 BF pp Soore Peet OEXCHS ACCESSFAIL : 

000000006 99 4 FB 84 CALLS #4, LIBSSIGNAL : 
6E B0 88 OVE STATUS, RO : 

0 000000006 EF DO O008F 1S: MOVL  EXCHSA_GBL, RO : 

4 99¢ 0 bo 00096 MOVL. 192(ROJ, PTR : 

50 000000006 Ef 000000¢ F C1 00098 2$: ADDL3 #192, EXCHSA_GBL RO ; 
0 4 Di OOOA CMPL PTR, R : 

44 13 QOAA BEQL : 

52 041B00F3 BF v0 0 aC MOVL 468878579, R2 : 

51 021¢ ef € 0008 MOVZWL #540, R1 : 

50 4 00 00088 MOVL PTR, RO : 

000000006 EF 16 000BB JSB EXCHSUTIL_BLOCK_CHECK : 

56 4 01 000C1 CMPL PTR, R6 ; 

25 13 000C4 BEQL 3 : 

38 AG 00 00E9 C4 ons as 2D 00C6 CMPCS 56(PTR), 233(PTR), #0, 56(R6), 233(R6) : 
£$ 12 00D2 BNEQ 3$ : 

FB OAD 38 A6 DO 00004 MOVL 36(R6) DESC : 

FC AD OoES C6 44 0009 MOVAB 233(R65, DESC+4 ; 

52 000000006 &F p OODF MOVL _ #EXCHS$_VOLMOUNT, TEMP : 

FB ap F O0E6 PUSHAB DESC F 

68 11 OO0E BRB 12$ : 

54 64 00 OOEB 3$: MOVL (PTR), PTR : 

AB 11 OOOE BRB 2$ : 

10 2F As 4 €1 OF 4$: BBC #4, 47(R6), 5$ ; 
3 16054008 F 9 F MOVL #4701061 0; MUST_HAVE F 

1 203220F i 0g i ROVE #3401 6151. CANNOT_HAVE : 

50 9co44g20 F 00 19 5$ MOVL #201605152, MUST_H : 

1 203220C6 8F D0 001 MOVL.  #540156102. CANNOT_HAVE : 

52 a 6 (Ck CD 00113 6$ XORL3 ST_HAVE, 44(R6), : 
5 p 11 BITL 2, AMUST_HAVE : 

118 BNEQ 7 : 

51 2c COA p 110 BIT 44 (R6) CANNOT_HAVE : 

52 000000006 8F p 123 7$: MOVL #EXCHS_DEVNOTSUIT, TEMP ; 

3 120A BRB 11$ : 

15 2E A EO 0012C 8$: BBS #3, 46(R6), 108 ; 
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a aoun, fore gn penal nt gan 12: $8: 198 9}: 98: 36 EXCHNG.SRCJEXCMOUN.B32;1 nth (6) 
4 ; SAE BH 2a 8 
of F ) 4 ee : 
1 a INSV RG "1 wo : 
5 ; 30 65 aI th 4 fteg irs ; 8 g 
7F , A BNeo 6 lsa19$—ti—=s : 
3 3¢ as ° CMPL (R6), #14 + 0591 
7 4 BNE F 
6 a? oc AE 9 4 MOVAB ih 3 gR R?) : 596 
a te ae 8s 
7 0D | PUSHL : 0599 
000000006 00 } i 3 CALLS paste ; 
S oo Pees | Ree Ui tal ar 
A? 0 F 8B 6 mOVW Gen?) : 0608 
2 A? : 1 ep 68 VL 13g 3eth + 0609 
7 OD of PUSHL + 0610 
cere Bn a ea | 
&D 6— E 8 7B BLBS ST TATUS. 19$ : 
000182BA &F : bi 0 i CHL STATUS, #99002 ; 0614 
62 0 BA ° f BICB2 #32, (R2) > 0616 
F 11 A17$: BRB 19 : 
a eh er aD hens 
08 ae 69 Ab 5 029 MOVAB 105(R6). DESC+4 : 
53 000000006 8F 00 00 "6 MOVL HEXCHS_ACCESSFAIL, TEMP > 0622 
£ AE BD oo5ab pusHt STATUS 
‘A Ries | Baws pes : 
000000006 H pe 8 30 CALS #5.” LIBSSIGNAL ; 
50 33 6 0 87 Mov. = TEAP, RO ; 
58 Ab 7A AA 19$:  MOVB  122(R10) g8(R6) : 0629 
«fet amet t 85 FD bo5e GRIZV Be. Bt. 135(R103, RO — 
6 01 00 CC MOVL = ae ste > 0632 
CF RET po 


50 yi 4 208: CLRL RO 


3; Routine Size: 723 bytes, Routine Base: EXCHSMOUN_CODE + 0167 


ESENBgG™ «NOUN var stganch and wise routines Bo stan198e O4ORSSYMCLL Been OST, 

s. OeAt ROUTINE exch$moun_implied_mount (namb : Sref_bblock) = %&SBITL ‘exch$moun_implied_mount' 
io 

i FUNCTIONAL DESCRIPTION: 
i —-“eraaGe fe operate on an untounees votsacs, In pertTcutor.ehients necessary Yer 
EXCHANGE to work as a ‘foreign’ DCL command (e.g. SEXCH DIRE CSA1:). 

INPUTS: 

namb - a pointer to a completed namb 

IMPLICIT INPUTS: 

; none 

OUTPUTS: 

: namb Cnamb$a_assoc_volb] receives the address of the volb 

: IMPLICIT OUTPUTS: 

: a volb is allocated and mounted 

ROUTINE VALUE: 

Success or worst error encountered. 

} SIDE EFFECTS: 

A device may be added to internal tables. It might also be mounted to VMS. 


Sdbgtrc_prefix ('moun_implied_mount> '); 


volb : Sref_bblock, ! Local pointer to the volb 
status 


BIND 
moun = exch$a_gbl Cexcg$a_moun_work] : Sref_bblock ! pointer to our work area 


Sblock_check (2, .namb, namb, 436); 

: Allocate and/or initialize the work area 
moun_init (); 

: Get or default all the qualifiers 

moun ([moun$v_ reign) = true; 


q.fo 
moun [moun$v_q_virtual] = false; 
moun Lmoun$\_q_write = true; 


SESSSSPSSSSSSVSSHVVES 


Voi-000 = exendmouncinpt tedcmount ne “outines Eee QLOESS UMA Sitatse Powe 9 


H Make sure that the volume is not already mounted 
Slogic check (2, (.namb Cnamb$a_assoc_volb] EQL 0), 115); 
1 

i 


we 


Allocate a $VOLB to describe the volume 


9 volb = exch$util olb_ ol tecete 0; 
moun Cmoun$a “volBy = svolb; 


H The moun routine expects to access the namb from the moun block 
moun Cmoun$Sa_namb] = .namb; 


! Set some state in the volb. Since the RX01 and RX02 drives do not eupoert read and write checking, if we 
see that one of these has been mounted /DATA_CHECK, we will do it by hand. 


BEGIN 
cg ferries = namb Cnamb$l_fabdev] : Sbblock; 


MEwn 


check; 

check = (.devbits b Eman rck 

((.namb Cnamb$b_ . Re e) + dt$_rx01) OR (.namb Crnamb$b_devtype] EQL dt$_rx02))); 
volb Cvol bev. read. heck] = en moun$v_q_réad_check] OR check; 
check = {deve ts. S Lepvev_ve 

namb$b Mdevtyoe) cm dt$_rx01) OR nenb cnannee _devtype) EQL dt$_rx02))); 

volb Cvothsy. “ee check] =.moun Cmoun$v_q_urite checki"0 
strace_ print_fao ("read_check !UL, write_check !uC', ~F, tiotbsy. read_check], .volb Cvolb$v_write_check)); 


en a te 
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PEEP IPIPIPIPIID HMMA MAAN HHPIPIPIPYRIPINPIPINI PI HII FW 


: Now dispatch to foreign mount to complete the task 


MEUM $9 OONOU FW 0 OOO UFO 


DPAAPAAAAAAAAAAAAAAA AS 


Status = moun_foreign (); 


: If this worked, attempt the volume-specific mount 


AAO 
Ses 


if .status 
8 BEGIN 
$66 case -volb Cvolb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
644 volb$k_vfmt -d031}] : status = exchsdos}t mount (. velb): 
64 volb$k_vfmt_rt : status = exch$rt11 nouns (.vol 
64 '\ volb$k_vfmt_rtmt : $exch_s ignal . stop Texch$ _ngbinpLement?; 
o 4 OUTRANGE , INRANGE : $Slogit_check"(0, (false)? 
64 ° 


END; 
: If the foreign mount or volume-specific mount failed, then deallocate our VOLB 
if NOT .status 
THEN 


EGIN 
trace_print_fao (‘closing, fab=!XL*, .volb Cvolb$a_fab]); 


Be Se Se Se Ge Be Se Se Se Ge Se Ge Se Be Ge Fe Fe Se Se Se Se Se Ge Se Ge Fe Se oe Se Se Se Se Ge Se Se Se Se Se Se Oe Se oe SH Se Se Se Se Se Ge Se Ge Se Se Ge Ge Ge we 


PAPAIN 


POOH 


voe-000 sac mptiedcmount  * “outines isc age 72:28:56 EEXcHncs sneSexcmoun. 0835 Mea v 


$6 Sclose (fab=.volb Cvolb$a_ teb)); ! Close it, ignore any errors 
exch$util_volb_release f. Volb); 


7 9 namb Cnamb$a_assoc_volb] = .volb; 
77 : Make a copy of the namb, since someone else owns the input namb 
volb Cvolb$a_assoc_namb] = exch$cmd_namb_clone (.namb); 
77 END; 
77 RETURN .status; 
END 


SESESESES 


i exch$ut i> “namb_release (.namb); 

fl 738 Otherwise, signal the implied mount and return the address of the volb 

; 665 $88 3 Ese 

: $96 238 BEGIN 

; f If NOT .volb Cvolb$v_write) 

3 ef f ne Cmoun$v_q_message) 

; er oe Sexch_signal (exch$_writelock, 2, .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident]); 
: ore ree Sdebug_print_fao ("volb address !XL", .volb); 

978 766 IF .moun Cmoun$v_q_message) 

2 oe bench stenak tant puuneeds 4 sot Fest set Hitae Fal, ie PD tsa, 


& 
oO 
~ 
~ 


~-EXTRN EXCHS aa th EXCHS_WRITELOCK 
-EXTRN EXCHS_MOUNTED 


O1FC 00000 ENTRY EXCHSOUN, IMPLIED_MOUNT, Save R2.R3,R4,R5.- ; 0634 
é 06 9 9E MOVAB C685 1GNAL R8 : 
G 9 MOVAB LIBSST 7 F 
6 G BF D MOVL BOPP SLE ; 
53 000000006 EF 4 ¢ ADDL3 EXCHSA_GBL. R + 0677 
4 046 AC 9 MOVL NAR RS : 0680 
: 010A90F7 F p VL 556 sips R2 ; 
aes 6 MOVES Ree RO 
000000006 EF ? JSB EXCHSOTIL BLOCK_CHECK ; 
0000v CF FB CALLS 40 “INI ; 0684 
: 6 MOVL $), R3 ; 
20 A : MOV (RS) RS ; 
6 4 BISB i (RD) F 
6 8 A 00047 BICB 48, (R5) : 0689 
1 OA D MOVL #1. 28(R3) : 0690 
74 Ab ° TSTL  116¢R4) > 0694 
0B BEQL 1$ 3 


5 
ex MOUNT verb dispatch and misc routines bese -1 08:34 AX-11 Bliss-32 V4.0-742 Pa 2 
ae exchSmoun, imp ied mount 12-85b=198e 93:98:56 HEXchnc SaeSexemtonce soe a 5 
7E 73 «BF OA MOVZBL #115, =(SP) ; : 
1 DD PUSHL #1 : ; 
67 PB 00088 ete SS resstop : : 
000000006 EE F 1$: CALLS ‘ ; EXCHSUYIL_VOLB_ALLOCATE ; 0698 ; 
04 AS D MOVL VOLB gR3) ; 699 : 
. 1 be 0008 or fe : Ona ; 
10 79 AG i 3 CRPS Jer (Rd), #16 : 3 
é 1 7 BNEQ 2 : ; 
D 7 INC RI : ; 
0 3 79 2$ LRL R : : 
08 79 A& 91 00078 CMPB =s«127(R4), #11 : ; 
; 1 7F BNEQ 3 : ‘ 
50 if Ys: iste Ale RO : : 
: 6" 53 3 ¥ C ; ATO #6, £1. 1O7(RG), = ‘ 
5 0 a} F picts CHECK, RO, CHECK : : 
50 6 gi Hi ote8 EXTZY #0, at. (RS), RO ; 0715 : 
48 A2 01 01 8 98 INSV RO, #1, #1, 72(VOLB) : : 
1 ps 0 Al CLRL + 0717 ; 
10 79 Ab 91 QOOA CMPB = s«121(R4), #16 : : 
2 t¢ GOOA BNEQ 4$ : F 
3 56 B00K9 INCL RI 
40 ps QOAB 4$ CLRL OR : : 
08 79 Aa 91 OOOAD CMPB = s«121(R4), #11 : : 
02 12 00081 BNEQ «5 : ; 
06 0B INCL RO : ; 
50 51 C8 00085 5$ BISL2 Ri, RO : ; 
53 6B AG 1 EF 0088 EXT ZV a7, AV. 1O7CRA), CHECK : : 
5 3 i CB 000C Sta. CHECK. RO, CHECK : ; 
50 é 1 1 Hi 00¢5 EXTZ2v. #1, #1, (RS), RO : 0718 : 
0 8 O00CA BISB2 CHECK, RO : ; 
468 a2 01 02 FO 000C INSV RO. #2, #1, 72(VOLB) : ; 
Fess CF 8 OD CALLS #0, ROUN FOREIGN ; 0724 3 
i f 0B BLBC TATUS %S. : 0728 ; 
0083 9 58 A2 &F 000D CASEB Ba cyol, #0, #3 : 0732 : 
0020 r} 001 000 O0E3 6$: WORD $-68.- : 3 
fea : 
7E E4 8F 9A OO0EB 7S: AOVZBL # 8 (SP) : 0737 ; 
1 DD OOOEF PUSHL # : 3 
DD OOOF PUSHL R : ; 
67 FB F CALLS #3, LIBSSTOP : 3 
bo OtOrs 8s: Femme OV a : 0734 : 
000000006 EF ; Fe ‘A CALLS ne EXCH$D0S11_MOUNT : ; 
sonneos 21 beac gee jos) 
4 0 50 10C 10$:  MOVL RO. STATUS ~ : : 


Kk 5 
ex MOUNT verb dispatch and misc routines 16-Sep- AX-11 Bliss-32 V4.0-742 P 3 
ar exch$moun. inp fed ed_mount 12: os rs a 1382 9}: 9: 36 YE XCHNG. SRCJEXCMOUN.632;1 —_ 3 
1€ 53 £8 f11$: B8LBS TATUS, 13$ : 0744 
10 A2 DD iF 138: PUSH ie (VOLB) : 0748 
000000006 00 FB 13 CALL SYSSCLOSE Sams 
000000006 EF 1 fs CALLS = | eves 
000000006 EF 01 re CALLS ‘ 1, EXCHSUTIL_NAMB_RELEASE ens 
15 7) az a8 9 13$: BS ss, 72(vOLg) : 075 
* . AS F COSHAB ogy LBS 36 | : 6 
2 i pp C pu HL 194 (VOLB) : 
000000006 DD ay PUSHL #EXCHS_WRITELOCK : 
Fe 4 CALL Ul $SIGNAL : 
17 6 3 4A 14$: BBC 4 ) t 0766 
69 A2 9F oF PUSHAB 105 (VOLBS t 0769 
Ae 0D PUSHL 101(VOLB) F 
D Ad OF 4 PUSHAB 93(VOLB) ; 
9 Ad OD 7 PUSHL 89(VOLB) ; 
4 DD A PUSHL : 
commons HAE Sie BS Secrt tome : 
7% «Ab 2 00 63 15$: HOVE mee 116(R4) : 9770 
000000906 EF i f 68 CALLS 1. EXCHSCMD_NAMB._CLONE ; 
4 4 D 76 16$: MOVL no: 3 RO : 0778 
04 0017 RET : 0779 


; Routine Size: 378 bytes, Routine Base: EXCHSMOUN_CODE + 043A 


Ex 
vo 


. 


5 
SOE ert steteh ond tac routines SERA AICHE TUSHAR, me 


i GLOBAL ROUTINE moun_init : NOVALUE =  SBTTL ‘moun_init’ 
f 'e¢ 

i FUNCTIONAL DESCRIPTION: 

7 

7 

7 

794 

79 


POOP O OO 
LESRASS 


Perform setups common to both EXCHSMOUN_MOUNT and EXCHSMOUN_IMPLIED_MOUNT, also EXCHSMOUN_DISMOUNT 
INPUTS: 

none 
IMPLICIT INPUTS: 


Mewr 


global environment 


SAIC Om 


: OUTPUTS: F 
a: oe: 7 
: Tawa : 
3 ze Ha ; 
$ 7 +h none 3 
; 716 +4 : 
: a1? : ROUTINE VALUE: : 
; aS B0¢ none ; 
; 718 0 3 
: ahs oS SIDE EFFECTS: : 
3 i 19 memory might be allocated for the moun control block ; 
ee 1 : 
; 7246 13 S$dbgtrc_prefix (*moun_init> '); ; 
: 82 18 5 BIND F 
3 ; é + moun = exch$a_gol Cexcg$a_moun_work] : $Sref_bblock ! pointer to our work area 3 
: 7 1 ‘ : 
3 £ 319 LOCAL 3 
: 4 ; y message : 
i F : 
ee § ' If this is an inpt tee mount, then the /MESSAGE qualifier will not be ailowed. Enable the condition handle : 
: f 5 : so that it will ignored. : 
a. 6 ENABLE ; 
: 4 exch$cmd_unwind_cli_syntax; : 
3 oy § : If our pointer is null, we need to allocate and initialize the work area ; 
; 76 1 2 If .moun EQL 0 F 
; 74 § 3 
ae oe: ? BEGIN 
; ef 5 : Get the right sized chunk of memory, conveniently set to nulls ; 


: 


DOONAN WN S(O CODNAUS WN" OOO~ P 


DUPPUSSISIISISIIII 
SSRIS RFS Se 


Aao 


wr 


i | 


$= 


SN gh apaneh ond sto roves SEHR HAMREEEGU PUSHER, tome 


moun = exch$util_vm_allocate_zeroed eee 
Set the ident fields 


Ww 


$block_init (.moun, moun); 
; Set the descriptors up 


dayn. str_desc_init (moun [moun$q <Geyice)); 
Sdyn-str—desc_init (moun Cmounsq_filenamed); 


$block_check (2, .moun, moun, 437); 
: Set the flag for printing mount and dismount messages. 


Cmoun$v 9. message] = .exch$a got fexcosu_ Q_message); ! Default to external state 
nossege = clT7$present (ZASCID 'MESSAGE') ! Find the flag state for the 


i aeune in ux tential aaah cat Gtk ems cok Ot ake oes aad oe tn tee eee ee 


'@ NOTE: On an ap) sod mount we will UNWIND out of the above call to CLISPRESENT. Therefore, none of the 


iw which follows this comment will be executed during an implied mount! 
Rt Be Ba WR NR Me, BL ra 


MAM MUIVIVIVIVAW 


Soooooo 
ERaSses 


IF .message EQL cli$_present ! Either /MESSAGE or /NOMESSAGE must be specified in order t 
OR i “override the external default 
message EQL cli$_negated 


SEe. 


se THEN 

8 moun Cmoun$v_q_message] = .message; 
$890 RETURN; 

0871 END; 


-PSECT EXCHSMOUN_PLIT,NOWRT,2 


00 45 47 41 53 53 43 4D 00014 P.AAD: .ASCII VRE SSAGE\<0> : 
a3 0007 QO01C P.AAC: .LONG : 
0000000" 00020 -ADDRESS P.AAD : 


-EXTRN EXCHSGQ_DYN_STR_TEMPLATE 
eEXTRN CLISPRESENT, CLIS$_PRESENT 
SEXTRN CLIS_NEGATED 


-PSECT EXCHSMOUN_CODE ,NOWRT ,2 


001C 8 -ENTRY oe NeiNiT Save R2,R3,R4 ; 0780 
54 000000006 _ EF mF prety ; 
52 000000006 _ EF 4 ¢ ADDL ee EACHSAL GBL, R2 : 0816 
6D 0072 F D 1 MOVAL : 
ee j om 
dD 1A PUSHL #36 ; 0837 


END; 
H Make sure that our work area is valid 


san 


MOUNT vere dispatch and misc routines 
moun_init 


N 5 
1e$ep=198e 82:98:06 LEXcuncrsmeSexcmoui. 0620 1 Pane of 


50 

50 

20 00000000G FF 

20 =A 01 
20 «AS 01 


3; Routine Size: 


153 bytes, 


000000006 EF 
gs A 
A 


WVWAVNEAOSA YS POmn 


8) 
4 
000000006 90 
000000006 8F 
00000000G 8F 


04 


7E 
000000006 EF 


Routine Base: 


f ee j 


000000006 


9 § CALLS #1, EXCHSUTIL_VM_ALLOCATE, ZEROED : 
0 D MOVL RO. (RO) : 
4 ° 6 MOV 6 #36, (RO) * 0841 
8 i A NE GB #8, °10(RO) : 
¢ 5 ADDLS #12, (R2), RO + 0845 
6 p MOVG. TMPL, (ROS : 
4 g ADDL3 #20, (R2), RO + 0846 
mova THE. (ROS : 
20 C 18: MOVL (R R3 3; 0852 
F p F move 4 39544, R2 : 
F 4 MOVZWL # R1 : 
3 p 48 VL —s-R3, RO : 
F aE J$B8 EXCHSUTIL BLOCK. CHECK : 
; EF 5 EXTZV #2, #1, @EXCHSA gL. RO 3 0856 
FO 06 INSV RO. #4. #1, 32(R3) : 
0000' CF 9F 9 6 PUSHAB P. : 0857 
1 FB 0006 CALLS #i, CLISPRESENT : 
g bt te CPL MESSAGE. #CLIS_PRESENT + 0864 
0 01 5 7 CMPL MESSAGE, #CLIS$_NEGATED > 0866 
06 1 075 BNE : 
FO 000 a8: INSV MESSAGE, #4, #1, 32(R3) + 0868 
04 00086 3$: RET + 0871 
0000 00087 4$: -WORD Save nothing ; 0816 
7E D4 00089 CLRL 0s = (SP) : 
5E pp 00088 PUSHL SP : 
04 aC D 0008D MOV 4 (AP), =(SP) : 
03 FB 00091 CALLS #3, EXCHSCMD_UNWIND_CLI_SYNTAX : 
04 00098 RET : 


EXCHSMOUN_CODE + 0584 
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Ww 


moun_init (); 
2 + Get the individual boolean qualifiers. 


exch -Sep-1 
3; 7 72 1 GLOBAL ROUTINE exch$moun_mount = ZSBTTL ‘exch$moun_mount' 
3 f 5 7 BEGIN 
; - fe Sif 
if £6 ¢ | FUNCTIONAL DESCRIPTION: 
3 : A Action routine for the MOUNT verb, parses and performs main control functions for MOUNT 
; £3 ‘ i INPUTS: 
; ee § none 
i 296 4 gj IMPLICIT INPUTS: 
3 a 56 Command parameters and qualifiers as returned from CLI$xxx routines. 
: 800 888 i OUTPUTS: 
: 801 889 } 
3 S Baoe } none 
; 804 089¢ i IMPLICIT OUTPUTS: 
; 805 89 ! 
: Bo? 0a95 5 | 7 
3 808 896 i ROUTINE VALUE: 
; ai9 Baes | Success or worst error encountered. 
; big 0900 i SIDE EFFECTS: 
3 He 4's A device may be added to internal tables. It might also be mounted to VMS. 
: 81 904 2_ 
; si it $dbgtrc_prefix ('moun_mount> '); 
: 819 $909 LOCAL 
; 820 0908 namb : $ref_bblock, ' Local pointer to a namb 
3 Se) 0909 volb : Sref_bblock, ! Local pointer to a volb 
3 Bs¢ 910 status 
: 852 12 : 
; 825 13 BIND 
: $ i moun = exch$a_gbl Cexcg$a_moun_work] : $ref_bblock ! pointer to our work area 
Ee wth 
; 8 \8 : Allocate and/or initialize the work area 
if 
; 
; 8 


3333333 
DOOOOOOOOOVOVOOVOOOVOND s 


Rorornonopnorofroronyd 


moun [moun$v_q_read_check] = cli$present (ZASCID ‘DATA_CHECK.READ'); 

moun Cmoun$v-q_write_check] = cli$present (ZASCID "DATA-CHECK.WRITE'): 

moun Cmoun$v_q_ foreign = (cliSpresent (ZASCID "FOREIGN') EQL cli$_present): ! Only set if explic 
moun (Cmoun$v_q_virtual = cli$present (ZASCID 'VIRTUAL"); 

moun (moun$l_q_write = cli$present (ZASCID ‘WRITE'); 


<m 


FLELLELER 


DWONAUVUS WN "OO OONOULS Wh 


PAA 


SFenes 


oa 
“ 


2 


SAN NO 


0 Cd Od Od Go CD Gd CD CD CD CD CD. 
SsaTcrran=sS 


Wwn— 


SSESSSESSTSEE 


Be Be Se Se Se Se Se Se Se Se BH Se Se Se Ge Ss Se Ge Ge Se Se Se Se Ge Fe Fe Se Se Se Se Se Se St Se Se Se SH Se Ge Se Se Se FH SF Os Se FH Se FH Se Se Se ee OH Se SH ee 


fe] 
oO 
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6 ‘ 
MOUNT verb dispatch and misc routines 16-Sep-1984 91:08: 36 pr Bliss-32 V4.0-742 
exch mount 14-Sep-1984 12:29:06 EXCHNG. SRC JEXCMOUN.B32; 1 
i Do some consistency checks on the qualifiers 
iF moun Cmoun$v_q_foreign] AND .moun Cmoun$v_q_virtual) ! /FOR/VIR is not allowed 
Sexch_signal return ee re . 

i 5 moun Lmoun$v_q_foreign] = NOT .moun [moun$v_q_virtual); 

, 4 Parse the device name parameter into a newly allocated SNAMB, there are no defaults 
939 status = exch$cmd parse _filespec (ascid_devicename, 0, 0, moun Cmoun$q_device], namb); 
940 moun [moun$a_namb] = .namb; ! Save it in the work area too 

Bes a -Status 

308 Sexch_signal_return (exch$ poreegrrs 1, moun Cmoun$q_device], .status); 

a348 ff wor -namb Cnamb$v_explicit_device 

r¢ Sexch_signal_return (exch$_nodevice, 1, moun Cmoun$q_device]); 

a 984 y _gnene Enamb$v_explicit_node] 

$949 Sexch_signal_return (exch$_noremote, 1, moun Cmoun$q_device]); 

0950 IF .namB CnambSv_explicit_directory] OR .namb Cnamb$v_explicit_name] 

4 an -namb Cnamb$v_explicit_type] OR .namb Cnamb$v_explicit_verstTonJ] 

$35 Sexch_signal (exch$_devonly, 1, moun Cmoun$q_device]); 

92? Make sure that the volume is not already mounted 

989 if (.namb Cnamb$a_assoc_volb] NEQ 0) 

Bee THEN 

95 BEGIN 

960 

sd Signal and return the error 
o968 $exch_signal (exch$_volmount, 1, namb Cnamb$q_device]); 
0964 status = exch$_volmount; 
0965 noes 

369 ELSE 

3e8 BEGIN 

1A! : Allocate a $VOLB to describe the volume 

97¢ volb = exch$util yolb_al locate QO; 

2h moun Cmoun$a_volB) = ‘volb; 

975 ! Set some state in the volb. Since the RX01 and RX02 drives do not support read and write checking, if 
344} ; see that one of these has been mounted /DATA_CHECK, we will do it by hand. 

978 4 BEGIN 

979 4 BIND 

0 4 devbits = namb [namb$l_fabdev] : $bblock; 
981 4 LOCAL 
§ 4 check; 
9 5 check = (.devbits ye rc 
44 ? AND ((.namb 


volb Cvolb$v_read_check] = .moun [moun$v_q_read_ check] OR .check; 


k] 
neabsb_devtype) EQL dt$_rx01) OR_(.namb Cnamb$b_devtype] EQL dt$_rx02))); 


e 
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me a tk a ak ek a a a a a dt — _'t“ —  — _n — a 


ooooo 
Wann 


FRRIS 


m—OOe 


iE CMOUN.832; 1 


EXCHNG.SR 
check = f. aeery*ts fdev 


(C.namb E angi. devtype J 2 ee dt$_rx01) OR neat Cn Cnenbso _devtype] EQL dt$_rx02))); 
v 


Stra tvotbsy aur ite wcheck snoun't awrite check 


= uprint_fao ("read check !UL, write check ! tUc’, -volb gots read_check], .volb Cvolb$v_write_chec 


Now dispatch to either the virtual mount or to foreign mount to complete the task 
if .moun Cmoun$v_q_virtual) 
THEN 

status = moun_virtual () 


status = moun_foreign (); 


See Re AAA AA AAAAAA AREER AAAAAAAAAERAAA AEE REAE EEA AERETEHE HERE AAAeEEe 
'* moun_virtual will hove ¢ reparsed the. Govice ,name and created a new namb. ALL references to namb must 


ie use moun Lmoun$a_namb) from this point o 


lh BD ee RR D1 RL Ee a OTe: & ae a OO 


If this worked, attempt the volume-specific mount 


if .status 

BEGIN 

case -volb Cvolb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
vol b$k_vfmt_dos11] : status = exch$dos11_mount (.volb); 
volb$k_vfmt_rt11 ? status = exch$rt11_mount (.volb); 
volb$k_vfmt_rtmt : $exch -Signal_ stop Texch$ -rotinplement); 
OUTRANGE , INRANGE : S$logi¢_check (0, (false)? 227); 

END; 


If the mount or the specific mount failed, then deallocate our VOLB 
if NOT .status 
THEN 
BEGIN 
$trace_print_fao (' closing 4 Phineas -volb Cvolb$a_fab]); 
$close” (fab=-volb Cvolb$a_ fab] ! Close it,” ignore any errors 
exch$util_volb_release (.Vo 
exchSutt( namb_release (.moun — namb]); 
If it worked then finish the mount 


ELSE 
BEGIN 


: Save the namb so that we can look at it later 

volb Cvolb$a_assoc_namb] = .moun [moun$a_namb]; 

: If the volume is write-locked, signal this information 

If (NOT .volb Cvolb$v_write)) ! If the volb is marked no write 
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MOUNT verb Poo goer and misc routines 1bes rot 1386 9}: 98: 3 AX-11 Bliss-32 V4.0-742 Page 2 


crt 


: 


h 14-Sep-1 EXCHNG.SRC EXCMOUN. B32;1 
3 5 1 ? 4 D ' and $ 
; $ 1 & «moun Cmoun$l_q write] ! we thought we were going to write 3 
; 1045 4 THEN F 
3 1 § BEGIN ; 
H 1 LOCAL ; 
3 +4 : status2; : 
; 3c8 \ if gmoun Cmoun$i_q_write] EQL cli$_present : 
; bee } § status2 = Swarning_stat_copy (exch$_writelock) ! If an explicit /WRITE, then warning status ; 
; 206 1054 ptatuse = exch$ sts itgtock: ! otherwise its info statu : 
3 st : 5 Sexch_signal (.statis2 volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ ident); : 
; 969 ' ; 4 END; : 
; 34 35 4 ! Now tell that we mounted it : 
; 378 1061 4 if .moun Cmoun$v_q_virtual) : 
; 976 1 ; 4 THEN : 
Pi ee si" 
; 379 1065 nam = .volb Cvolb$a_nam] : S$bblock; ! RMS nam block for the opened file 
3 4h 1398 IF jmoun Cmoun$v_q_message] 
; 980 P 1068 Sexch_signal (exch$_mountvir, 4, .volb Cvolb$l_vol_ident 5it7- volb Cvolb$t_vol_ident], 
; 981 34 -nam Cnam$b_ rete -nam Cnam$l_rsaJ); 
3 ; 1971 Sdebug_print_fao ("volb address !XL', .Vo 
Pine oi pee 
; + Vee ; ghoun Cmoun$v_q_message] 
: 988 B 1978 Sexch_signal (exch$ naunted 4, .volb Cvolb$l_vol type. len}, volb Cvolb$t_vol typed, 
; 989 1077 5 b Cvolb$t_vol_ident_lénJ, “volb Cvolb$t_vol_ident]); 
; 990 1078 5 pécbus., print_fao (‘volb eddress Pec , «volb);~ 
: 991 1079 4 END; 
; 99 1080 4 END 
3 ear + 1 END; 
: 995 10 5 RETURN .status; 
; 996 1084 END; 


.PSECT EXCHSMOUN_PLIT,NOWRT,2 
46 41 45 52 26 4B 43 45 48 43 SF 41 54 41 as 00024 P.AAF: .ASCII \DATA_CHECK.READ\<0> 
si P.AAE: .LONG 17694735 
“ADDRESS P.AAF 
54 49 52 57 2€ 48 43 45 48 43 SF 41 56 % P.AAH: <ASCII \DATA_CHECK.WRITE\ 


C 
4B 
4C P.AAG: .LONG Sg Aa 
wc oo a EM es a 
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\WALTE)<0><O><O> 
17694725 


EXCHS_MOUNTVIR 
EXCHSMOUN_CODE ,NOWRT,2 


EXCHSMOUN_ MOUNT, Save R2,R3,R4,R5,R6,R7,R8,-; 
R9,R10,R1T 


P.AAE, R 
CLISPRESENT, R10 
LIBSSIGNAL, R9 
426, EXCHSA_GBL, R2 
#0, MOUN_INTT 
(Re) RG 
2(R4), RS 
#1, CLISPRESENT 
RO, #0, #1, (RS) 
“i, CLISPRESENT 
RO. #1, #1, (RS) 
AAI 
#i, CLISPRESENT 
, #CLIS_PRESENT 


2, #1, (RS) 


ISPRESENT 
» #1, (RS) 


iaenesent 


1 
0, 
( 
5 
5 
7 
#1, LIBSSIGNAL 
#3, #1, (RS), RO 


RO, Rg 
RO, #2, #1, (RS) 
(R4), R6 


CENAME 
MD _PARSE_F ILESPEC 


wumow~ 
1 3] 
Poo 
=—=x=m 
ce<c 
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6 
V-00b = Gachtmounsmount ne Mise routines E$gert98s Q4:08:34  YACMLGDLLSECRE na tGte2 i 


) MOVL NAMB ; 0940 
MOVL R3 : 
f 006 &F Hint STATUS. G8 a TEMP ¢ Oot 
89086 F BB 38 PUSHR SEMCREoROS . : 
DD 0008C PUSHL # : 
9 PB 000. CLs Pk LIBSSIGNAL : 
0 2 5 ¢ 3$: MOVE TEMP, RO : 
52 6c OA C7 4$ MOVAB 108(R3), R2 + 0944 
CB TSTB R2) : 
(D BLSS a : 
57 000000006 &F p CF MOVE 1 XCHS_NODEVICE, TEMP + 0946 
14 63 E1 Be 5$ BBC WG, 7$ > 0947 
000000006 8F 060 0000 MOV Lens 2NOREROTE, TEMP + 0949 
6 DD OO00ES 6S PUSHL 4 : 
1 DD O00E PUSHL # : 
7 DD OO0DE PUSHL Tene : 
$9 3 FB £9 CALLS LIBSSIGNAL : 
0 0 ROVL TEMP, RO : 
A 00 : BLBS R : 
08 4 " f 5 A BBS i aT OS ag : 0950 
é, AE 8 BBS #16, (R2S, rT} : 0951 
& 8 E F BBC #11. (R2); 9$ : 
DD 00100 8$: PUSHL Ré > 0953 
1 DD 001 PUSHL ; 
000000006 8F DD 001 PUS aexcns DEVONLY ; 
9 FB OO10A CALLS L JGSS1GNAL : 
74 a3 05 00100 9$ TST T18¢ : 0957 
18 13 0011 BEQL 108 : 
40 A3 9F 0011 PUSHAB 64(R3) : 0963 
1 0d 0011 PUSHL : 
000000006 8F DD 0011 PUSHL sprit VOL MOUNT ; 
69 3 FB 0011D CALLS ; 
8 000000006 8F p 1 9 MOVL #EXCH  VOLROUNT , STATUS : 0964 
0157 1 BRW ; $ : 0957 
000000006 Ef 0 i A 10$ CALLS #0, » EXCHSUTIL_VOLB_ALLOCATE : 0972 
04 6 dO 001 MOVL  VOLB, 4(R4) : 0973 
1 04 001 CLRL = R1 > 0984 
10 79 =A 13A CMPB a1 (R3), #16 ; 
1 BNEQ 11$ : 
D6 0014 INCL = RI : 
ps 142 11% CLRL oR : 
08 79 «=A 14 CMPB 3=s«121(R3), #11 F 
12 00148 BNEQ 12$ : 
D6 OO14A INCL R ; 
0 CB 0014C 12% BIst2 Ri, Ro : 
52 68 «AB 1 ef 14 ex! v Ho. 107(R3), CHECK : 
5 6 CB 138 Bit CHECK. RO, CHECK : 
50 é cf 1 ‘ EXT y #0 at. (R5), RO : 0985 
0 8 161 BISB2 CH HECK ; 
48 6 01 1 F 1 INSV RO, A, Rn. 72(VOLB) F 
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6 
eee: 
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2A RUASAFAMS SOMA SO 
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be 92:98:56 EBXcimes sae Sexcmoun 08271 


is 9 
CMP: 
BNEQ 
NCL 


R 

121(R3), #16 
13$ 

R 

R 

121(R3), #11 
14$ 

R 
i a 
#7. #1, 107(R3), CHECK 
CHECK, ROS CHECK 

wi, wi, (RS), RO 

CHECK, RO 

RO, #2, #1, 72(VOLB) 
a3, (Rr5), 15$ 

#0, MOUN. VIRTUAL 

#0, MOUN_FOREIGN 


RO, STAT 
b0v3 


#EXCHS$ BADLOGIC 
& LIBSSTOP 
22$ 
VOLB 
a , EXCHSDOS11_MOUNT 


VOLB 
#1, EXCHSRT11_MOUNT 
TATUS, 24$ 
6¢VOL8) 
fi : SYSSCLOSE 
#1, EXCHSUTIL_VOLB_RELEASE 
#1, EXCHSUTIL_NAMB_RELEASE 


(R4), 36(VOLB) 
#5, ?2¢VOLB), 27% 
(r4 


(R4), #CLIS_PRESENT 
HEXCHS WRITELOCK, STATUS2 
a7, STATUS2 


105(vocB) 
101 (VOLB) 


26 
fats IVELOCK, STATUS2 
] 


re 


; 1016 


A 


GERM | asetysiaeten ant wine roveoes HERE ASH WBtnMNARHb 


tite eta To : 
1F é 43 27%:  6BC #3. baa): 5 $ + 1061 
18 «OA 4 MOVL 24 (vOLB) R + 1065 
32 é 0 48 BBC #4, (R5). 3 +1 
7€ A } move Ht y. =¢SP) .* 
A : PUSHAS 95(vb.B) : 
A PUSHL 101(VOLB) : 
C PUSHL ; 
000000006 8F ‘ PUSHL t5 XCHS_MOUNTVIR : 
17 65 4 28$: BBC (RS), 308 + 1074 
69 A PUSHAB TOS(VOL BS + 1077 
A PUSHL i 1(VOLB) : 
D oA PUS (VOLB) ; 
9 A 7 PUSHL 89 (VOLB) ; 
7 PUSHL $ 
000000006 8F 7 PUSHL ss $ MOUNTED : 
9 $ 3 9$: CALLS iene 3 
0 81 0$:  MOVL + 1083 
RET 3; 1084 


3; Routine Size: 645 bytes, Routine Base: EXCHSMOUN_CODE + 064D 
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VOOR oumwvirtual pete and alee routines — 92:98:6 — UEXcunce see Sexcmoun-0se71 P09" 1d) * 


£9 ROUTINE moun_virtual = ZSBTTI. ‘moun_virtual’ 


wu 


FUNCTIONAL DESCRIPTION: 

Make a virtual volume known to EXCHANGE. An RMS file is opened on the volb. 
INPUTS: 

none 


wrwn— 


BIND 
qoun = exch$a_gbl Cexcg$a a oe. Sref_bblock, 
Sdesc_ block, 


BRAS SHVEG 


. potater to our work area 
ame of virtual device filename as input 


file = moun onto aol file 
vol b = .moun Rete ae ! Pointer to exchange VOLB structure 


a 
ow 
a A 

--—--o 
o-— 
wk 
_ 


= .volb Cvolb$a_ vee : ' File Access Block for the volume 
rab = .volb t $bblock, ' Record Access Block for the volume 
= .volb [vol bSa~ te : S$bblock ' RMS mame block for the volume 


sbiock check neck {2.2 oBOUR. agun. 438); 


Sbtock _theck ( a RS $33): 
lock-check (2, ; volb, volb, 44 


! Grab pointer to exchange NAMB structure for device name 


mk at at a a ss an ss I os a SS I SP SP? SI SI OS OS SY Ss SS SS SS SS SS SS SS Ls Ss SS SS SS SS YS YS YL YH SS 
a ee ae a a ee ee a ee a dd ed td nd 2d = 8 od od = dt 


'¢ 
! 
i 
1 
' 
in 
i 
. ' 
r 1 
\ i IMPLICIT INPUTS: 
3 i G_namb = name block describing the device 
+ 139 H Q_write = flag saying if we allow writes 
15 1 i QuTPUTS: 
18 1 i : 
1 1 : none 
18 105 ' 
1? : IMPLICIT OUTPUTS: 
1 G_volb = volume block which will describe the mounted volume 
; 110 ROUTINE VALUE: 
025 1¢ Success or worst error encountered. 
5 114 i SIDE EFFECTS: 
3 115 ' 
118 $ lots 
11 ed 
1 118 
§ Bt Sdbgtrc_prefix (‘moun_virtual> '); 
' 1 LOCA bo 
8 1 ; ~ v Spblock FuabSc_ fhclen], ' file header char xab so that we can read the size of the f 
124 namb- : $re ' a@ pointer to the namb 
: 5 ad _namb : fet “bb lock ' a local namb for the virtual name 
5 
155 
1 
: 1 
133 
1 
135 
1 
1 
1 
1 
1 
1 


Fut "OC CO sOue& 


Vn 


eo 
=o 


T - 708: - 
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! Reparse the virtual vol name. The ‘no 59tt- value’ o aye is used to reparse the co Iron bel o— rather th 
i calling CLISGET_VALUE again. We request a H Ftual device parse to prevent the device from bein 
! expanded, for example to prevent ‘'R:'' from becoming ‘_RTAO:" and ‘'DM:"' from becoming “_DMAO:"’. She NAMB f 
; the first parse has to be discarded. 
exch$utit mend. release (.namb); 
Status = éxch$tmd_parse_ tilespec (moun oe aoundg de 9 {prsoptsn. no_get_value OR prsopt$m_virtual_device 
moun evice 
then NOT .status 127? We probably don't need to check the status, since we have parsed it once 
xch mouibasngnb See nanb (exch$ _parseerr, 1, moun , Emoun$q_ device], .status); 
pepe: Saye namb address in work area 
Stogic. check"(3, (.namb Cnamb$a_assoc_volb] EQL 6) 7); 
Fetch the name of the file which is underneath the virtual volume 


status = exch$cmd -parse_filespec (ZASCID "FILENAME', ZASCID 'VIRTUAL.DSK', 0, inpfile, vir_namb); 
If a -Status 


“sench stenel. senna (exch$_parseerr, 1, inpfile, .status); 
BEGIN ! scope ‘‘fulfile” 
fulfile = vir_namb Cnamb$q_fullname] : $desc_block; 


33 


! Get the device information. Note that we will Later change the volb$l_devmaxblock to the actual in-us 
H count for the file. 


if NOT (status = exch$util_vol_getdvi (fulfile, volb)) 


BEGIN 
Sexch_signal (exch$_ accessfail, 1, fulfile, .status); 
status = false 
exch$util nenb. release (.vir_namb); 
RETURN -status; 


: Now set the unique ident field of this volb, we use the ident given by EXCHSCMD_PARSE_FILESPEC 


a _print_fao ("volb devnam “!AF'’, namb device ‘!AF’’, namb volid “"!AF'', concealed !UL', 
Cvolb$l sat Fat volb Sas _devnam] 


SSNs 


NNO AO Fb 2 ee 


SISSISSEETS 


namb$q_device] : $desc -block; -ndev Edsc$w. at Hoes 


device dsc$a_pointer] 
_vol_ident g-tend namb Cnamb$t_vol_ ident) J, 
namb [namb$v_concea 

CHSMOVE (volb$s_vol_ident; _namb $t “vol. ident], volb pret bee oat,, teont si 

volb Cvolb$l_vol_idént_len] = need naab$l—vol_ident_len 


 vuvvU 
a ee ee ee ee a ec ce ce ee ee ee ce ee ce ee ce ed ee ce ce ee ce ee ee ee ee cel ee ce ee ee ee ed ee ee ee 


ee ee ee rie ee ii ee en ee ee ee ee Ee eS SS 


ZIF switch _debu ' Debugging trace code 
THEN x g gging 


BEGIN 
a 
$desc_b 


esc 
$stat mtr desc sintt on disc. -volb Cvolb$l_devnamlen], volb Cvolb$t_de eynen am)); 
perace, print_fao ('GetdyvT for name ‘!AS"' resolved to device '"!AS . fulfile, tmp_ desc); 
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a cc ee ec a a a ee ek ae ed ee ed 8 ed eed 
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cccccccr 
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oO rn rane 
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ne om 1E$Ser19RE QL:08:3S UMLeLL PLANE G2, F098 18) 


1 
Init the RMS blocks for the volume 
Pp $fab_init ( 
& FAB = fab ' Volume FAB 
P FAC = (B16 GET), i Block 1/0, read-only 
P 5 FNA = .fulfile fas sc$a -Pointen). ' Set name addr 
6 FNS = .fulfile Cdsc$w_length] ! Set name : ze 
P NAM = nam ! Name block 
XAB = xabs; ! A file header char xab so that we can read the file size 

P Srab_init (¢ 
P 12: RAB = rab, ' Volume RAB 
P 121 ROP = B10 ! Block I/0 

1 FAB = fabs; i FAB addr 
P i121 Snam_init ( 
P i21 RAM = nam ' File name block 
P 121 RSA = .volb evelbte _rsbufl, ! Result name addr 
P 121 RSS = nam$c_m +f ' Result name size 
P 121 ESA = .volb™ fvolb a_esbuf), ! Expanded name addr 

1 ESS = nam$c_maxrss); i xpanded name size 
P 121 Sxabfhc_in ( File header char xab so that we can read the file size 


XAB™ = pty RMS will fill it in when we open 
: Make any adjustments to the RMS blocks as necessary 

fab Cfab$Sv_put)] = .moun Cmoun$l_q_write]; 

Open and connect to the volume 


herece print_fao (‘opening foper tte fab); 
IF NOT (status = Sopen (fa b)) 


N 

BEGIN 

: If we failed with a privilege violation and we were going to write, try again /NOWRITE 
Tens Statss EQL rms$_prv) AND .fab Cfab$v_put] 


MEUM" OOONOUNE WN S(O OONOUS wy 


BEG 

“4 ftabsy put] = false ! Cancel the write option 
$trace_print_fao (' ter. open again fab=!XL", fab); 

IF NOT” (status = Sopen (fab = fab5) 


BEGIN 
exch$util_file <error (exch$_openvirtual, .status, fab, .fab Cfab$i_stvJ); 
status = false 


eure O0@ 


tat ee 


45 excheut tt nanb release (.vir_namb); 
4 RETURN .statu 
4 END; 
4 END 
4 ELSE 
39 BEGIN 
exch$util tite error (exch$_openvirtual, .status, fab, .fab Cfab$l_stv]); 


eet ie 
exch util he a release (.vir_namb); 
A ae .status; 


Be Se Be Se Se Fe Se Se Se Se Be Se Se Ge Se Ge Se Fe Fe Ge Fe Ge FH Fe Fe Se Se Se Se Se Ge Se Se Se oe Ge Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Se Se Ge Ge Ge Oe Se ee 
ee ee eet a ee ee a a ed ed ed od dd od = = td 
ee ee ee ee me ee ee ee a ed ed ed aed nd ed 


ao WUIUVIMUIVIUIVIVE BPEL LLL E ee a ae el el 
SISOS SSSVSUSUN UWS SRSA SSeS yes — SoSNS Seo =OODDNOUL WT 


ee ee ee ee ee __ __._.._. ee ee ee ee LSS) 


SPD IIA AA AANA UII BE EE PE 


PFT | 
Wun 


ex at erb fis atch and misc routines -Sep-1 :08:34 AX-11 Bliss-32 V asec Pa 8 
a ra “virtue ° 16-se0-1984 94:98:38 EXCHNG.SRCJEXCMOUN.832;1 eT 
3 + 1528 END; 

; i ! A. NOT (status = Sconnect (rao = rab)) 

; 117 1 "BEGIN 

3; 11 1 4 exch$util_file -error (exch$_openvirtual, .status, fab, .rab Crab$l_stvJ); 

; a 1 ¢ 4 status = false 

3 11 1265 4 exch$util nenb, release (.vir_namb); 

; a 1 ie) RETURN .status; 

: FA 1265 3 

3 11 1 $6 

3 i } END; ! scope ‘ful file’ 

; Hi ¢ ; e FILL in the rest of the state in the volb 

: 11 1 Mt volb vol bgv connec tg) = true; 

: 1185 127 volb Lvolb$v_virtual] = Ate F 

3 11 127 volb Cvolb$v_write] = De fab$v put) 

; HH 1274 volb Cvolb$i— ~devmaxblock Rr fxa abst ebk] - ! Put the file size in the device block size field 

3 1 ; ! e CF xabSw_ ffb] NEQ 0 | (Eof block is one too high if the first free byte is zero) 
: 1196 127 olb Cvolb$l =yolmexblock2 = .volb votbst _devmaxblock]; ! Make the poyeteot 

3 1191 127 Strace absi"ts 4, owns max blocks ‘UL’, -volb. volb$t_ _devmaxblock] 

3 1336 } fab ffs $i_xab ! Remove the xab from the fab, won't be valid after return 
: 1132 } 1 H A virtual volume must be RT11. If /VOL was specified, make sure that it was RT11, otherwise assume it 

; 1196 1 ‘ if _.namb Cnamb$v_vfmt_explicit) 

: 1198 1588 § Neccin 

: 1199 IF nam Cnamb$b_vol_format] NEQ volb$Sk_vfmt_rt11 

: 1201 1 Bs status = exch$_invvol fmt 

37 o 128 

3 3 37 1290 4 BEGIN 

: 1 1291 4 volb Cvolb$v_vfmt_explicit] = 

3: 1205 1 38 4 volb Cvolb$b_vol_format) = volbsky “ofnt. rtil; 

31 129 END; 

HERE set 

31 1 BEGIN 

3; 1210 1 35 volb Cvolb$v_vfmt_explicit] = false 

+ 1211 1 38 volb Evolb$b-vol_Tormat) = volb$k “viat crt; 

im ie 

: ! 14 ! Release the namb 

; 1 16 1 g exch$util_namb_release (.vir_namb); 

: 1 18 1305 2 RETURN .status; 

3: 121 1 END; 


-PSECT EXCHSMOUN_PLIT,NOWRT,2 
45 4D 41 4E 45 4C 49 46 00084 P.AAP: .ASCII \FILENAME\ : 


voe-000 


MOUNT yore dispatch and misc routines 
moun _virtual 


00 48 53 44 2 4C 41 55 54 sto : 3 
SES. 8H 


OFFC 00000 

5E 3¢ C2 0000 

50 00000000G_ EF 14 C1 0000 
? 60 Dd sit 

8 04 A? DO 0001 
6 10 A&B DbO 00014 
A 14 A8& 00 00018 

9 8 A8 00 B8) 

2 002400F F BP 0 

é 0186 F 5 00 
0 7 OD + C 
000000006 EF 1 O2F 
08 A 7? 00 00035 
010A00F7 F 4 0039 
0187 F 3C 4 

0 3 AE 00 0004 
990008 96 F 8 049 
52 041B00F F B O4F 
51 0188 F 3C 00056 
50 8 00 00058 
soceeones EF 16 QO05E 
8 AE DD 00064 
00000000G_ EF 01 FB 00067 
08 ry} oF BoE 
OC A? 9F 00071 
93 BD 00074 
4 3 Bers 

oc A F 0007 

00000000G_ EF 5 FB 000 
‘ gH St 
5 000000006 er D 14 
5 D F 
oc A F 91 
30. (11 94 
5 0&8 AE pe 96 
6 58 9A 

Cc =uUCOA F 

4 A F A 

7E D4 4 

4 CF OF A 

00" CF 9F A 
000000006 _ EF 3 F AD 
6€ D B4 
1B 6— E 087 


sep-] 
~Sep-1 


AAO: 


1$: 
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~LONG 17694728 ; 
een P.AA 3 
eASCI \¥TBT UAL -DSK\<0> : 
«LONG = 1769473 3 


»ADDRESS P.AAR 


-EXTRN EXCHS$_OPENVIRTUAL 
-EXTRN EXCHS~INVVOLFMT 
.PSECT EXCHSMOUN_CODE ,NOWRT,2 
ENTRY Mo NAVIRTUAL , Save R2,R3,R4,R5,R6,R7,RB,RI,=; 
SUBL Hi: , SP : 
ADDLS # EXCHSA.GBL , RO : 
MOVL (ROS, R : 
MOVL 4(R75, RB ; 
MOVL TCR §, R6 : 
MOVL  20(RB), R10 : 
MOVL  24(R8). RO : 
MOVL #2399546, R2 : 
MOVZ2WL #438, R1 : 
MOVL 7, RO : 
JSB EXCHSUTIL BLOCK_CHECK : 
MOVL (R7), NAMB : 
MOVL #17482823, R2 ; 
MOVZWL #439, R1 : 
MOVL NAMB, RO 5 
JSB EXCHEUTIL BLOCK CHECK : 
VL #6 87 579; R2 : 
MOVZWL #440, R1 : 
OVL  R8, RO ; 
JB EXCHSUTIL_BLOCK_CHECK : 
CALLS #1, EXCHSUTIL_NAMB_RELEASE : 
PUSHAB : 
PUSHAB VecR7) : 
PUSHL # F 
CLRL. =< SP) : 
PUSHAB gtr?) : 
CALLS #5, EXCHSCMD_PARSE_FILESPEC : 
MOVL 0; STATUS ; 
BLBS STATUS, 1$ ; 
MOVL § #EXCH$"PARSEERR, TEMP : 
PUSHL STATUS : 
PUSHAB Teer ) : 
BRB 2 3 
MOVL NAMB, R11 : 
MOVL R11, (R7) ; 
PUSHAB VAR NAMB ; 
PUSHAB 20(R7) ; 
LRL ss = (SP) ; 
PUSHAB P.AAQ : 
PUSHAB P.AAO : 
CALLS #5, EXCHSCMD: PARSE _FILESPEC : 
MOVL RO. STAT ; 
BLBS _— STATUS, : 


P09" 15) 


1159 


7 
EXCH MOUNT verb dispatch and misc routines 16-Sep-1984 01:08:34 AX-11 Bliss-32 V4.0-742 Page 40 
vee moun. virtual : 12-808=1 382 9 08:36 YEXCHNG SRE EXCMOUN.B32;1 . (10) 
52 000000006 oF p0 BA MOV. #EXCHS_PARSEERR, TEMP : 1161 
14 a5 SF £} PUSHAB 3 RY) : 
1 DD C6 2$ PUSHL @# : 
: DD 000C¢ PUSHL TEMP : 
000000006 99 re CA CALLS #4, LIBSSIGNAL : 
2 BO ) MOVL TEMP, RO : 
50 o¢ AE 1 gi DS 3$: ADDL3 #24, VIR_NAMB, RO + 1165 
4 AE $ E OOODA MOVAB (ROS, 4(SP) : 
DD 000D PUSHL R : 1170 
08 AE OD 9 E PUSHL  8(SP) : 
000000006 _ EF 9 § E CALLS #2, EXCHSUTIL_VOL_GETDVI : 
$f DO OOOEA MOVL RO, STATUS : 
1 6— €E8 OO0ED BLBS § STATUS, 4$ : 
6E DD O00F PUSHL STATUS + 1173 
08 AE DD 000F PUSHL (SP) : 
1 DD OOOF PUSHL #1 : 
000000006 8F DD 000F PUSHL #EXCH$_ACCESSFAIL ; 
000000006 00 a. re OOF CALLS ae LIBSSIGNAL owe 
69 AB 008A CB 0080 8F 33 09107 4$ MOVC3 #128, 138(R11), 105(R8) + 1187 
65 AB 0086 CB DO 00110 MOVL.  134(R11), 101(R8) : 1188 
0050 =s«BF 00 6E 00 2c 0116 MOVCS #0, (SP). #0, #80, (R6) : 1208 
66 5003 8F 80 OIE MOVW #20483, (R6) : 
16 Ab 3 9 1g MOVB #34, 23(R6) F 
1F Ab 90 00127 MOVB 37(R6) : 
24 Ab 10 Ar H 0128 MOVAB XAB, 36(R6) : 
28 Ab 59 00 00130 MOVL R9, 40(R6) : 
50 04 AE 04 ¢1 001 ADDL3 #4. 4(SP), RO F 
ec A6 60 B0 0139 OVL (RO), 44(R6) : 
4 Ab 06 BE 90 0013D MOVE a4(SP), 52(R6) ; 
0044 &8F 00 6E 00 2c 00148 MOVCS #0, (SP), #0, #68, (R10) ; 1212 
6A 4401 BF 80 O14A MOVW #17409, (R10) : 
04 AA 0800 er C OO14F MOVZWL #2048, 4(R10) 3 
C AA 6 DO 00155 OVL 6, 60(R10) ; 
0060 8F 00 6E 09 2c 0159 MOVCS #0. (SP), #0, #96, (RO) ; 1218 
69 6002 af 80 a016) MOVW #24578, (R9) : 
02 Ag 1 F 0166 MNEGB #1 g(R9) ; 
04 Ad 20 As p 016A MOVL  32(R8), 4(R9) : 
A Ag 01 ‘ 16 MNEGB #1, 10(R9) ; 
C ag 1c AB 1 ; OVL 28(R8) 12(R9 : 
2c 00 6E “ 00 C 178 MOVCS #0, (SP), #0, #44, SRMS_PTR : 1220 
10 A C1D 8F BO 0017F MOVW #11293, $RMS_PTR ; 
16 Ab 01 : 06 . 1¢ Ar FO 18 INSV 28(R7), #0, Fi, 22(R6) : 1336 
000000006 00 1 FB 001 : CALLS #1, SYSSOPEN : 
0 00 0019 MOVL RO, STATUS F 
6E E8 00198 BLBS = STATUS, 6s : 
0001829A BF 6 b 198 CMPL TATUS, #98970 + 1235 
13 16 AB ES OOLAL Bee 35cR6). S$ 
16 Ab 01 BA 001A8 BICB2 «#1, $3 trad : 1238 


Be Be Ge BO Se Be Se Ge Se Se Ge Se Se Se Se Se Fe Se Ge Ge Se Se Se Ge Se SH SH Se Se Se ee Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se se Se Se Se Se tease 
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a HY moun_virtuel . 12-808- 1382 9:98:38 YEXCHNG SRE EXCMOUN.B32;1 9° 10) 
DD OO1AC PUS R : 1240 
000000006 00 ef FB OOIA CALLS af SYSSOPEN : 
0 DO 001B MOVL RO. STATU : 
6— €8 001 BLBS TATUS, 6 ; 
oc A bp 188 S$ PUSHL g (RO) : 1251 
§ DD OOlED 6S BUSHEL RIO : 1258 
000000006 00 1 FB OOIC CALLS #1, SYSSCONNECT : 
6 0 pO 001C MOVL RO. STATUS : 
1 6E €E 1€C BLBS STATUS $ : 
OC AA DD OOICE PUSHL  12(R105 + 1261 
56 0D 10e 7$: PUSHL R6 : 
08 AE DD 001 PUSHL STATUS : 
000000006 ef DD 107 PUSHL #EXCHS_OPENVIRTUAL § 
000000006 EF 4 FB 001DD CALLS #4, EXCHSUTIL_FILE_ERROR : 
6E D4 OO1E4 8S: €LRL STATUS ; 1262 
4A 11 O16 BRB 15$ : 126 
51 48 AS 9E OO1E8 9S HOVAB 72(R8), R1 + 1271 
61 11 88 OO1EC BISB2 #17, (R1) : 1 2 
61 01 6 16 Ab FO OO1EF INSV 22(R6) , #5, #1, (RI) + 127 
24 AE B85 001F5 TSTW XAB+20 + 1275 
94 13 001F8 BEQL 10$ : 
9 D4 OO1FA CLRL = RO ; 
03 11 OO1FC BRB 11$ : 
50 gi 09 Ore 10$:  MOVL. #1, RO ; 
40 As 20 AE 0¢ 01 11$: SUBL3 RO. XAB+16, 64(R8) : 
ee 40 A8 DO 00207 MOVL 4 (RB), 68(R8) : 1377 
24 Ag D4 0020C CLRL 6(R6) + 1279 
15 0085 cB 0 a O20F BBC #2, 133(R11), 138 : 1283 
0 7A AB O91 «00215 CMPB = s«120(R11), #3 + 1286 
09 13 00219 BEQL 12$ ; 
6E 000000006 BF 06 0 18 MOVL #EXCHS_INVVOLFAT, STATUS : 1288 
61 40 8F 88 00224 12$: BISB2 #64, (R1) + 1291 
04 11 00228 BRB 14$ + 1292 
61 40 8F 8A 0022A 13$: BICB2 #64, (R1) : 1297 
58 AB 03 90 0022 145: OVB #3, 88(R8) ; 1298 
OC AE DD 00232 15$: PUSHL VIR_NAMB : 1303 
000000006 EF 07 FB 00 CALLS #1, ~EXCHSUTIL_NAMB_RELEASE ; 
0 6E DO 0023C MOVL STATUS, RO + 1305 
04 0023F RET : 1306 
; Routine Size: 576 bytes, Routine Base: EXCHSMOUN_CODE + 08D2 
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MOUNT verb dispatch and misc routines ibs 
14-Sep-1 EXCHNG.SRCJEXCMOUN 31 (11) 


exch$moun_vms_mount (volb, devname) 


i 


Stare ROUTINE exch$Smoun_vms_mount (volb : Sref_bblock, devname : Sref_bblock) = ZSBTTL ‘exch$moun_vm 


Oo 
w 


$Sblock_check (2, .volb, volb, 633); 
Prepare the item List 


SHS. 


ant_item i} = (mnt$_devnam*16 OR .devname Cdsc$w_length]); 
= 
2j = 


EXCH 

vee i 

: 1221 Y | 

> BE 

3 } § } 9 144 

i ges 131] ¢ | FUNCTIONAL DESCRIPTION: 

3 i 5 ! 13 Call the SMOUNT system service to perform a mount on VMS 

; § 1315 i INPUTS: 

: 1231 1 13 i volb = address of volume block describing the volume to be mounted 
: : § } 18 devname - address of string descriptor containing the device name 
3 4 0 | IMPLICIT INPUTS: 

: : : § ; none 

; 8 4 i QUTPUTS: 

: 1240 1 8 i none 

: 1241 1 ! 

; ; tg ; : IMPLICIT OUTPUTS: 

+ 1264 1330 i none 

3: 1245 1331 ! 

; : re ’ § : ROUTINE VALUE: 

; : rt : : Success or worst error encountered. 

; 30 i SIDE EFFECTS: 

; : 26 : ! A device may be mounted to VMS. 

> 1254 1 

: ! 22 ' $dbgtrc_prefix (*moun_vms_mount> '); 

:1 2$ 1 LOCAL 

: 1258 1 mnt_item : VECTOR (10, LONG], ' item List for $mount 
3; 1259 1 status 

; 1260 1 8 

te 

3 , e§ } flags : INITIAL (mnt$m_foreign OR mnt$m_noassist OR mnt$m_nounload); 
:1 1 

3 1 1 

3 1 1 

: | 

a | 1 

3 1 1 

3 1 1 | 
3 1 1 

s 1 1 

s 1 1 

s 1 

: 1 1 


PAPAIN & BS ES EE EEE 
Car PO Ooo OA PU OOO NOME WN ODO 


0 mnt_item devname (dsc$a_pointer]; 
| mant_item 6; 

7 mnt_item [3] = (mnt$_volnam*16 OR 8); 

74 mnt_item [4] = esa BYTE (‘Exchange’); 
Le mnt_item (5) = 0; 

7 


mnt_item (6) = (mnt$_flags*16 OR 4); 


wm 
=< 
ao 


2 


SHSPSS ase ae aren SIS 35 


a ta La 4 2 = = a — a — a 4 


54 
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exch$moun_vms_mount (volb, devname) 


a EN a a ne td tt i ds 


EXCHNG. SRC JEXCMOUN.B32; 1 


sects Es 5 


mnt_item (9) = 0; 

: Do the Smount service 

wot (status = S$mount (itmlst=mnt_item)) 
BEGIN 
BIND 


etatyed = syatus : Spb logt (4): 
gretys sts$v_inhib_msg] = 0; 
exch_signal_return Texch$_mounterror, 1, .devname, .status2); 


! End of List 


ELS 
Sexch_signal (exch$_vmsmount, 1, .devname); 


RETURN .status; 
END; 


-PSECT EXCHSMOUN_PLIT,NOWRT,2 


LAGS: .LONG 1048581 
AAS: .ASCII \Exchange\ 


.EXTRN SYSSMOUNT, EXCH$_MOUNTERROR 
“EXTRN EXCHS_VMSMOUNT 


.PSECT EXCHSMOUN_CODE,NOWRT,2 
.ENTRY EXCHSMOUN_VMS_MOUNT, Save R2.R3.R4,R5 


0010 
65 67 6& 61 68 63 78 


3c 00000 
55 000000006 99 9 9002 HOVAB LIBSSIGNAL, R5 
3E C2 0000 SUBL2 @# sp 
52 041B00F F p 900¢ MOVL #6867 579, R2 
51 027 F 3C 0001 MOVZWL #633, R1 
50 4 AC dO 00018 OVL VOLB, RO 
000000006 EF 16 0001 JSB EXCHSUTIL BLOCK. CHECK 
3 8 Ac p0 0 OVL § DEVNAME, R 
6 ¢ 00 MOVZWL (R3), R 
6E 00010000 BF C 0 5 BISL3 #65536, RO, MNT_ITEM 
04 AE 4 A3 00 1 MOVL  4(R3), MNT_ITEMT4 
AE 04 000 CLRL MNT if + 
OC AE 000200 8F b0 9 MOVL #137080, MNT_ITEM+12 
10 AE 0000" CF : 41 MOVAB P.AAS, MNT_ITEM+16 
14 AE D 47 CLRL = MNT ae 
18 AE 000499 4 BF DO O004A VL #262148, MNT_ITEM+24 
1C AE 0° CF 9E : VAB FLAGS, MNT_ITEM+28 
AE 7¢ CLRQ = MNT_ITEM+32 
5E DD B PUSHL 
000000006 90 coe D CALLS #1, SYSSMOUNT 
4 0 D MOVL RO. STAT 
19 E 7 BLBS STATU 
01 IC 0 F A INSV #0, #28, #1, STATUS2 
52 000000006 8F D 6F MOVL § #EXCHS_MOUNTERROR, TEMP 


VOL-000 exch Smounevas-nount tvolb, devnanes > ee GOERS UNEMePMesedEntbatall? Peet 


a § PUSHR #*M<R3,R4> 
D PUSHL 
D A PUSH TEMP 
$5 c CALLS # LIBSSIGNAL 
2 MOVL TEMP, R ; 
; DD 1$: PUSHL Rs : 1380 
000000006 8F DD PUSHL maXcHs VMSMOUNT : 
$8 i + 5 nou STATO ae tu : 138 
be $095 RET : 1383 


; Routine Size: 148 bytes, Routine Base: EXCHSMOUN_CODE + 0812 
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MOUNT verb dispatch and misc routines 18-seo-1984 9}: 9: 3 AX-11 Bliss-32 V nuns $2 - 


exch$moun_vms_mount (volb, devname 14-Sep-1 EXCHNG. SRC JEXCMOUN 


1838 1885 0 ELUoon 


-7 
3 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 
Name Bytes Attributes 
EXCHSMOUN_PLIT 1 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, Safed Tab att 
EXCHSMOUN_ CODE 29 NOVEC *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ecossess Syabe(§ oéce-ooe Pages Processing 

File Total Loaded Percent Mapped Time 
$255$DUA28: CSYSLIBJL18.L32;1 18619 144 1000 00:01.9 
BS Hiittnts $ EXCHNG.OBJJE EXCLIB.L32;1 1151 119 9 9 00:01.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:EXCMOUN/OBJ=OBJ$:EXCMOUN MSRC$:EXCMOUN/UPDATE=(ENHS:EXCMOUN) 


Size: 298 ¢ 3 + 180 data bytes 
Run be # 


Elapsed T 

Fetes Min: 

eee Ae gay af 
wt geges 


Compitat! 
Compi A sy m XO 


——————— 
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